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The Bezier method allows a curve to be represented with a 
minimum amount of data. Only four “control points” are 
needed for this example 


ee ————————————————— 


When displaying curves and surfaces in 
computer graphics systems one of the 
concerns is the method of curve 
description. A straight line is compact- 
ly defined in terms of its end points, 
and a circle can be defined simply in 
terms of its center and radius. But how 
do you define a curve without using a 
large number of data points? 


There are a number of methods for 
defining curves efficiently, one of 
which is the Bezier curve. In this 
article FORTH code is described for 
drawing Bezier curves, given four 
“control points.’’ An application 
program, also in FORTH, is included to 
illustrate the use of Bezier curves, 
along with other graphics primitives, to 
generate line drawings. 


Bezier Curves Defined 


The purpose of the Bezier method is to 
represent a curve with a minimum 
amount of data. It is an interpolation 
scheme which uses ''control points” to 
define a curve in two dimensional 
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space. Each control point is an X,Y data 
pair defining a point in the X,Y plane. 

The Bezier Curve is defined by the 
equation! 


W pes Sepa. Ce) 
1 


i n,i 
0<=t<=1 
P,, i=0,1,...,n, 
i 
(t) J (t) 
n,i n,i 


where the P(i}, i=0,1,....m, are the 
control points. The functions J(n,i) (t) 
are called ‘‘blending functions” 
because they act to blend the effects of 
all the control points in determining 
each point on the curve. J(n,i}(t) is 
defined by equations 2 and 3. 


n , 
(t) =| je? 
val i 


(2) Ja 


(1-¢)® 
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where 


(3) = 
i il(n-i)! 

The parameter t provides a single 
variable for representing the curves in 
place of the two natural variables X and 
Y. This ‘parameterization’ of the 
curve results in a simplification of the 
equations used in representing the 
curve, and hence in curve generation. 
The quality of the resultant curve is 
enhanced, also. 

A common application of equations 
1, 2 and 3 is derived by letting n=3. 
The result is a cubic Bezier curve 
which is defined by four control points. 
The four control points PO, P1, P2 and 
P3 define a curve in the following way. 
PO and P3 define the end points of the 
curve. P1 and P2 control the shape of 
the curve,but they do not lie on the 
curve. Points PO and P1 determine the 
direction in which the curve leaves PO, 
while P2 and P3 determine the angle of 
arrival at P3. Figure 1 provides example 
Bezier curves to demonstrate this. 
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Notice in each example that the curves 
leave PO and approach P3 in directions 
defined by the straight lines connecting 
P1 to PO and P2 to P3, respectively. In 
addition to the influence P1 and P2 
have on the curve at the endpoints, 
they have considerable control on the 
overall shape of the curve. The 
examples given in Figure 1 illustrate 
the wide range of curve shapes which 
can be generated. 


Figure 1. Example Bezier Curves 


{20,120) 


Po (80,150) 


In Figure 2 is an example of a family 
of curves which is easily generated by 
changing one or more of the control 
points. 


A number of Bezier curves can be 
used to form complex curves and 
surfaces, such as shown in Figure 3. 


Implementation of Bezier Curves 
in FORTH 


From equations 1, 2 and 3, with n=3, 


(150,100) 


Pi 
1220,20) ° 
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the equation for a cubic Bezier curve 
can be written as in equation 4, 


(4) P(t) = (1-t)?*PO + 


3*t*(1-t)?*p1 + 


34t? *(1-t)*P2 + 
t 3% P3 
O<=t<=1 
where each point P(t} represents an X,Y 
position on a coordinate system. Note 
that for t=0, P(0}=PO and for t~1, 
P(1) =P3.For values of t between 0 and 
1 Pít) is a blending of the four points 
PO, P1, P2 and P3. 
Equation 4 could be programmed as 

ìt is, but a more efficient representation 
can be found. It can be rewritten as 


(5)P(t) + t?*[(P3-P0)- 
3*(P2-P1)] + 
t7*[3*(P2-P1)- 


3*(P1-PO)] + 
t*(3*(P1-PO)] + PO 


Letting 


(6) PO' = PO 

(7) Pl' = 3*(P1-PO) 

(8) P2' = 3*(P2-P1)- 
3*(P1-P0) 

(9) P3' = (P3-P0)- 
3* (P2-P1) 

equation 5 becomes 

(10) P(t) = t2ep3' + 

t2p2! +t*PL' + PO' 
oT 
(11) P(t) = t*(t* 


(t*P3'+P2')+P1')+PO0' 
Note in equation 11 the repeated 
expression (t*Pm + Pn) found nested 
three levels deep. This expression for 
P(t) requires considerably fewer 
calculations than the original form in 
equation 4. In particular, the number of 
multiples is reduced to six {three for 
each dimension X and Y). The 
computations defined in equations 6 
through 9 are performed once for a 
given curve. To generate the curve, 
equation 11 is then evaluated for 
several values of t. 
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Figure 2. A Family of Bezier Curves 


Figure 3. Generating Complex Curves 
and Surfaces 


FORTH screens 42 through 47 given 
in Listing 1 are an implementation of 
equation 11. Taking advantage of 
FORTH extensibility, X,Y point 
operators P@, P!,P+, P-, Pt, P", 
PDUP and PSWAP are defined (see 
screens 43 and 44) corresponding to the 
FORTH operators @ (fetch), ! (store, = 
(plus), - (minus),* (times), */ (times- 
divide}, DUP (duplicate top of stack}, 
and SWAP (exchange top two items on 
stack}. {Note: the notation (m,n --- p,q} 
defines stack contents before (on the 
left) and after {on the right} the word 
executes.} Control point storage is 
defined in terms of point names PO, P1, 
P2 and P3, rather than (X0,YO}, 
(X1,Y1], etc., for convenience. In each 
case, the point name Pi points to the 
corresponding X value; the Y value is 
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stored in the next cell. (See lines 7-11 
of screen 44.) 

To draw the Bezier curve, points 
P(t} are calculated for several values of t 
and the points are connected by 
straight lines. By choosing smal] 
enough increments in t, the resultant 
plot appears as a ''smooth" curve (as a 
function of the resolution of the 
graphics system). In the 
implementation presented here integer 
arithmetic is used, not only because 
FORTH arithmetic is integer, but also 
because it is faster. The parameter t 
must be scaled so that it takes on only 
integer values. A variable N is defined 
as the upper limit of t. N also specifies 
the number of line segments used to 
build the curve. To generate a curve, 
then, the graphics cursor is moved to 
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the beginning of the curve, P{0] =PO, 
then P(T) is computed for T= 1 and a 
line is drawn to P(1). P(T} is computed 
for T=2 and a line is drawn from P(1)} 
to P(2}, etc. The process is repeated to 
generate N line segments and to end at 
point P{N] = P3. 

The number of segments is 
determined by computing Pjt) at the 
curve midpoint, i.e., at T=N/2. The 
maximum of 


x=(1xX(N/2)-x(0)1)/3 
and 

y=({¥(s/2)-¥(0)1)/3 
is taken as the segment count, with a 
minimum of 3 and a maximum of 50. 
These minimum and maximum values 
are somewhat arbitrary. They affect 
both curve quality and curve 
generation speed. The FORTH word 
FIX.N defined in screen 46 performs 
this calculation and sets the value of N. 
The variable N.SC, defined in screen 44 
provides a convenient means to 
experiment with the segment count. Its 
default value is 3 {see line 14, screen 
44). 

Equations 6 through 9 are 
implemented in the word 
COMPUTE.P’ in screen 45. The word 
STORE.POINTS is used to define the 
control points PO, P1, P2 and P3 by 
writing data from the stack into the 
corresponding storage locations. 
LIST.POINTS and SHOW.POINTS are 
utilities for viewing the control points 
on the CRT or on the graphics display 
device. 

Only two graphics commands are 
used to draw the curve. They are 
JMOVE, which moves the cursor 
(without drawing) to the specified X,Y 
position on the screen, and TDRAW, 
which draws a line from the present 
cursor position to the specified 
position. Equivalent commands should 
be readily defined for most graphics 
systems if they do not already exist. 

MOVE.TO.PO, defined in screen 46, 
simply moves the graphics cursor to 
control point PO, the beginning of the 
curve. LOAD.POINTS was defined to 
load the modified contro] points 
Po'-P3’ onto the stack for use by the 
word P(T}. P(T) is an implementation 
of equation 11, the simplified 
expression derived earlier. The word 
performs the general computation 
(t*Pm+Pn) three times as defined by 
equation 11. 

The parameter, T, is varied over its 
range of 1 to N in the word CURVE 
(screen 47}, which generates the Bezier 
curve. BEZIER puts everything together 
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to produce a curve given a set of four 
control points PO, P1, P2 and P3. 

To generate the example curve 
shown in Figure 1b, the following was 
executed. 


80 150 220 20 10 20 
180 150 STORE.POINTS 
BEZIER 


For the family of curves given in Figure 
2 the word given below was defined, 
then executed: 


: FAMILY 240 30 DO I 
PO ! BEZIER 10 +LOOP ; 


20 150 1 40 240 20 120 
120 STORE.POINTS 
FAMILY 


where "I PO !” modifies only XO (not 
YO} since XO is stored at the address 
defined by PO. To modify YO we would 
use PO 2 + !. We could also use the 
point store word P! defined in screen 43 
to redefine any one of the four points. 
For example, ‘50 140 PO P!’ would 
change point PO X and Y values to 50 
and 140 respectively. 


An Application: Line Drawings 


Screens 35-39 {listing 2) define an 
application of the Bezier curve code, 
along with other graphics primitives, to 
generate line drawings from a table of 
data. Nine commands are defined, as 
listed in screen 35. They provide the 
ability to build a picture from dots, 
straight lines, rectangles, circles and, of 
course, Bezier curves. The data are 
stored on disk in FORTH screens so 
that it can be generated, edited and 
listed using the FORTH editor. 

The only nonstandard words used 
are CASE (screen 38), and the graphics 
primitives COLOR, TDOT, TCIRCLE, 
TMOVE, TDRAW, TRECT and CLEAR 
(used in screens 36 and 37). CASE is the 
version written by C.E. Eaker and A.J. 
Monroe, published in FORTH 
Dimensions.? The graphics primitives 
are a subset of the primitives supported 
by the author's system (a TMS9918A- 
based color graphics system]. A similar 
set of primitives should be available or 
could be written for other graphics 
systems. 

The application and examples were 
written assuming a FORTH disk format 
of 1K bytes per sector so that one sector 
stores an entire screen of data 


then load an entire screen. Other 
configurations may require slight 
modification of the data file and/or the 
code. 

READ.BLK in screen 36 loads in the 
specified data file and establishes it as 
the source of data for 
READ.COMMAND and DATA. It also 
displays at the terminal the figure title 
or subtitle. READ.COMMAND (screen 
39} reads the next character from the 
data file and expects it to be the ASCII 
code of one of the nine commands. 
CASE, used in EXEC.COMMAND 
(screen 38}, then selects the appropriate 
word to execute that command. 


The word DATA in screen 36 is a 
key word in the remaining word 
definitions. It retrieves a parameter 


Figure 4. An example drawing 
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Ya denotes point tor segment n 


{screen here refers to the FORTH Figure 5 

screen, not the graphics screen). The d eai bn E 

word BLOCK (screen 36, line 5) will 
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from the data file. For example, in the 
definition of the word DRAW.CURVE 
it is used eight times to load four X,Y 
data pairs from the file. 

Each screen of a data file begins 
with a title or subtitle which is 
terminated by a ‘'}'’’. Commands are 
given one after the other, each with the 
required number of data values. At 
least one space must separate all 
commands and data values. The ‘‘E”’ 
command terminates the data file. The 
uN” command permits building large 
data files by linking screens (blocks} for 
continuation. 

Figure 4 presents an example 
drawing. The data file is given in 
Listing 3 as screens 40 and 41. Figure 5 
illustrates the derivation of the data 
file. The first five line segments are 


(135,23) 


(155,32) 


—— — O (170,135) 


denotes segment number 


Illustration of data 
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shown with points PO through P3 for REFERENCES: 


each. To draw the figure defined by 1. Rogers and Adams, Mathematical mmm 

these data the command Elements for Computer Graphics, McGraw- Richard H. Turpin may be reached at 8226 
40 FIGURE Hill Book Co., 1976, pp. 139-144. Warbler Way, Indianapolis, IN 46223. 

X 2. Montoe, AJ., FORTH Dimensions, Spn- 

would be entered at the terminal. Volume II, No. 6, p. 187. == 


















Define control points } 
: STORE.POINTS 1 PO,Pi,P2,P3 --- } 





Listing 1. Bezier Curves in FORTH 
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SCR # 42 10 P3 P! P2 Pt PrP! POP! ; 

Ọ i Bezier Curves - A FORTH Implementation 1/25/83) | 11 ( Display contro? points at CRT} 

1 i By R. H. Turpin 12 : LIST.POINTS CR POPA.. PLPE. . PZ PR. . PS Pe.. CR; 

2 i Reference: Rogers & Adaas, “Mathematical Elements for 1] 13 í Display control paints on graphics screen } 

3 (Computer Graphics,” pp 139-144, McGraw-Hill, 1976. VU 1a SHOW.POINTS PO PR TOOT Pi Pë TOOT P2 Pe TDOT P3 Pe TODI ; 

4 (Define 4 points PO, Pi, F2, and P3, each an X,Y pair. } --) 

5 ( the Bezier curve is defined by the following equation, ) 

6 ( where O%=Té=L: ! SCR E 46 

74 PETI = POrDI-TI^3 + 3e PieTHEl-T]*2 ! t Bezier Curves cont'd } 

8 + 3P2ETA2HI-T) + PST S ) ( Move cursor to start af curve } 

9 i where > denotes “raised to the power." } : MOVE.TD.PO PO Pa THOVE ; 

{0 í The above equation can be rewritten as: } ( Load soditied control points onto stack ? 

Ho PET) = THCT#CTAPS #P2°24P 1 14P0') ! + LOAD.POINTS PO" Pepi Pa PZ POPS Fe; 

12 (where PO = PO, PL = SelPI-PO], PZ = 3HIP2-PLI-3#LPL-PO} } Compute point on curve given control points and j 
) 


parameter, T, where 0 <= Tce 
PETI { PO’ PL «P2',P3',T --- FEV? 
30 DO DUP OR N @ Pee P+ R) LOOP DROP 5 
Compute the nuaber af curve segments by finding the ) 
distance from PO to the eidpoint on the curve. 3 ) 
’ 
) 


13 d and P3° = F3-PO-3#LP1-PO}, 
14 FORTH DEFINITIONS 
iie 


















oD Naun e T 


> 


SCR # 43 

( Bezier Curves cont'd } 
(In the following code contral points PO.. P3 will be 
( referenced as 1,Y pairs in teres of their corresponding 
(names. For exaaple, Pz will refer to 42,72. To 
( facilitate this the following operators are defined, 
: PR ( ADDRESS OF X --- X,Y} DUP e SWAP 2+ @ 5 
z P! d X,Y,ADDRESS OF X --- } ROT OVER ! 2+ ' 5 
Pe CO,YOML YE <- MOXI, YOYI ? ROT + ROT ROT + SWAF 5 
sP- A XO,YO,XL, Yi -= XO-11,YO-Y1 0 

ROT SWAP - ROT ROT - SWAP ; 
10: Pa LX,Y,N --- NK,NY ) ROT OVER + ROT ROT #5 
11: Pas d AYM,N =- AKAN B/N) 
12 ROT OR OVER OVER ÒR >R #/ «MAKIN 
13 R) RY R> SWAP #/ t MEV/N} § 
14 --) 
18 


í The nuaber of segeents equals the larger of delta X or 
delta Y, with a einiaue of 3 and a maxiaur of 50. 

13: FIX.N LOAD.POINTS 2N! £PITI € coapute midpoint ?} 

14 Po Pe F- ABS SWAP ABS MAX ( select maximum fron X or Yà 
5 N.SC @ / 3 MAK ( ain of 3! 50 MIN ( aax of SO) Nt; = 



















SCR EA 
Bezier Curves cont'd } 
Draw a Bezier curve } 
CURVE N@ 1+ 1 DO LOAD. POINTS I PET) TORAN LOOF ; 

























BEZIER COMPUTE.P: FIK.N MOVE.TG.PO CURVE ; 









i To use the above do the following: 

( step 1 - define control paints using STORE. POINTS 

t step 2 - execute BEZIEF 
4 The curve generated will pass through the two end 

10 | points PO and F3. The curve will leave point PO with 
i 
i 
( 
1 
t 


-ERE E 





















SCR @ 44 
0 ( Bezier Curves cont'd } 

t d Paint operators continued } 

2: POUP CNY --- XYM, Y} OVER OVER $ 
J: PSWAP € XO,YO,XI,Yi --- Ki,Y1,X0,Y0 } 
dR ROT ROF R> ROT ROT 5 


direction defined by a Line connecting PO and PL, and 
will approach P3 with direction defined by a Hine 
connecting P2 and P3. Control points Pi and Fz are 
not on the curve but they do help determine the 
shape of the curve. } 


Listing 2. Bezier Application - Line Drawings 


35 


4 8 
5 

& i Storage for control points Pd...P3 } 

7 VARIABLE PO 2 ALLOT ¢ X0,¥O? VARIABLE Pt 2 ALLOT i M1, vt) 
B VARIABLE P2 2 ALLOT i 12,12) VARIABLE P3 2 ALLOT ( 13,¥3) 
9 ( Storage for eaditied points PO'...P3" ) 

10 VARIABLE PO’ 2 ALLOT VARIABLE P1’ 2 ALLOT 

11 VARIABLE P2° 2 ALLOT VARIABLE P3° 2 ALLOT 

12 

13 VARIABLE N { Number of line segeents in curve } 

14 VARIABLE W.SC 3 N.SC! t Scale factor for N calculation } 
{5 --> 


SCR EJS 
í Bezier Curve Application: Line Drawings 4/4/83} 
( By R. H. trupin 
i Coasands for generating line drawings: 
( E - Draw a curve segeent (Data: PO,PL,P2,P3) 
{ C - Draw a circle (Data: X,Y, RADIUS) 
i 
[i 
t 
i 
t 






P- Plot a dot (Data: Kwl 

E - End of figure (Data: none) 

H- Set color (Pata: COLOR) 

L- Draw a tine (Data: XO,YO, Xi, Yt] 

N - Read another disk block (Data: BLK NO.1 


SER a 45 
O ¢ Bezier Curves cont'd } 
1 ( Compute sodi fied points PO’. .P3° droa control paints P0..P3 } 


2+ COMPUTE.P’ Pi Pe PO PE P- 3 Ps ( SEPi-PO) ) POUF 19 R - Draw a rectangle (Data: BASE,HEIGHT) 
p? Papi PeP-3 Pe 1 3UP2-Pt] } PDUP f1 Y - Clear screen (Data: nonel 
p3 Pe po pë P- i CP3-PO ) PSWAP P- 12 42 LOAD d Load Bezier and graphics! 60 LOAD ( Load CASE 
13 i Constants for command reference ! bb CONSTANT 







14 67 CONSTANT =E 68 CONSTANT =P 69 CONSTANT =£ 72 CONSTANT 


3 

4 

5 p3 pi pawat F Pe PS PL Pi po PERO Pl; 
6 

J 15 74 CONSTANT =L 78 CONSTANT =N QZ CONSTANT =R 84 CONSTANT 





i A tew utilities for handling/defining control points } 





No. 70 - March 1984 MICRO 


SER $ Ja 
( Line Drawings cont d 
Wards ta service comeands } 
2: DATA ( Read word froe data; convert to number on stack. } 
32 WORD NUMBER DROP ; 
Load a block of data froe disk; print header } 
z READ.BLK £ BLOCK NO. --- ) DUP SER ' BLOCK DROP 
SER @ BLK ' O XIN © 41 WORD COUNT TYPE ." }" CR 3 
Command B: Draw curve using Bezier function } 
: DRAW. CURVE 
B D DO DATA LOOP ( read 4 X,Y pairs, points P0,P1,P2,P3 } 
STORE.POINTS BEZIER ( Draw curve}; 
Comeand C: Draw a circle ) 
: DRAW.CIRCLE DATA DATA DATA TCIRCLE ; 
Command D: Plot a dot } 
: PUT.DOT DATA DATA TEOT  ; =~? 
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SER #37 
Line Drawings cont'd 
Casaand E: End of drawing } 
: END.TASK .” End of figure." ABORT ; 
Command H: Set plotting color } 
+ SET.COLOR DATA COLOR ! ; 
i Command L: Draw a line ) 
+ DRAN.LINE. 
A Ò DO DATA LOOP ¢ get X0, 00,11, Y1) 
TMOVE TDRAW í draw line } ; 
4 Command N: Read next block of data } 
¢ NEXT.DATA DATA READ. BLK 3 
{ Command R: Draw a rectangle } 


£ DRAW.RECTANGLE DATA DATA TRECT ; 
=) 
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SCR # 38 
( Line Drawings cont'd 
( Comeand X; Clear the screen } 
z CLR.SCREEN CLEAR ; 
( Comaand execution } 
+ EXEC, COMMAND i COMMAND --- ) 
CASE =8 OF DRAW.CURVE 
=£ OF DRAW.CIRCLE 
=D OF PUT. DOT 
=E END, TASK 
=H SET. COLOR 
al DRAN. LINE 
=N NEXT. DATA 
=R DRAW. RECTANGLE ENDOF 
=X CLR. SCREEN ENDOF 
." Bad data in block! * BLK @. CR ABORT 
ENDCASE 5 --> 
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ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 


SCR # 37 
t Line Drawings cont'd 
i Get coaeand troa data; leave on stack } 
+ READ.COMMAND 1 COMMAND ADDR. --- COMMAND } 
32 WORD COUNT DROP @ 253 AND 3 


RAT: 1/4783) 


(Word to draw figure using data stared on disk ) 
: FIGURE i BLOCK WG. --- ) 
READ.BLK ( Load in figure data file } 
BEGIN í Draw until end of figure comeand } 
TTERMINAL IF ABORT THEN i Test for operator abort } 
READ, COMMAND 
EXEC. COMMAND 
UNTIL ; 


Ò (False flag to continue } 


Listing 3. Example Line Drawing Data File 


Somaya s 


t 


no 





SCR # 40 | 
LINE DRAWING DATA: FORKY PIG) R HE 

90 38 135 23 475 59 t50 102 B137 t00 155 95 170 135 110 135 

110 135 45 139 53 85 70 55 

75 65 40 50 80 39045 

135 37 155 32 158 35 132 50 

B5 105 95 100 103 97 108 100 

105 £03 109 100 110 100 113 100 

Lif 108 127 85 140 85 133 108 Ł tht 108 133 108 
133 108 125 130 103 130 110 13 Ł HO H3 130 113 

£10 £19 £12 147 113 117 120 120 

HB 118 £22 147 123 H7 127 119 

100 99 115 65 122 70 £13 190 B 108 97 115 85 117 85 143 100 
133 95 145 79 148 75 142 98 B3598 143 88 145 88 142 %8 
1 WAL 


3 
5 04015 R145135 


scr PAM 
PORKY PIG CONTINUED > H6 
55 160 5 L50155 30179 
70 165 5 
80 160 BO 170 B80 13 84 160 BG 160 90 142 
95 155 95 170 L 95 163 103 157 L 9B 162 103 170 
110 140 110 175 120 175 120 160 
£2) 160 120 180 119 180 110 172 
150 140 5 L 245 185 145 170 
{40 163 160 170 C 140 157 2 
170 165 5 8 175 160 175 180 t65 180 165 172 E 


SOPHISTICATED TELE-COMMUNICATION IS HERE 


THE COMMUNICATOR 
for 4.0 Commodore Computers 


JIM STRASMA’S REVIEW: 
“THE BEST TERMINAL PACKAGE I'VE SEEN YET" 


By Aprit 1 (maybe sooner) It Will Be Even Better 


SPEEDS UP TO 9600 BAUD 
XON — XOFF 
TAUE CTAL KEY (we do our own keyboard scan) 


THE HARDWARE — A printed circuit board; easily installed in the CBM. it uses 

no CBM connectors, gives a serial pon with true RS232C standard. 

THE SOFTWARE — 

— Emulates the ADOS Reagent 100, ADM 31 and/or the 
Teta Video 960.1 Or choose the VT100 model for use with DEC and VAX 
computers. 

— Auns coresident with BASIC programs; lets BASIC 
programa and program on host computer communicate to develop rosi- 
ly sophisticated communication and control capabilities. 

— The program is on ROM at either address; no disk loading 
required. Uses only 512 bytes of RAM; wil relocate itenif around any other 
machine language program at top of memory. 

— Wil upload and download and run BASIC programs. With BASIC 
program wit upload and downioad standard data files. 100 page manual 
gives program listing for BASIC programe. 

Excellent text editor designed to work with THE COMMUNICATOR 

THE COMMUNICATOR $200 
Text Editor $40 

1200 baud modems beginning at low, low $385, and even less when purchased 

with THE COMMUNICATOR 


AMPLIFY, INC. 
2325 Macbride, lowa City, lowa 52240 31 9-337-8378 
1 trademarks Adda Regent, inc., Lear Liegier, Inc.. Ta'evideo Systems, Inc. 
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